home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
UTIL
/
Alpha 6.5.sit
/
Tcl
/
UserCode
/
Text Filters
/
Text Munging
/
shuffle
< prev
next >
Wrap
Text File
|
1994-02-11
|
230b
|
7 lines
#!/usr/bin/perl
srand; # Randomize the rand function.
@lines = <>; # Read in all the lines.
while (@lines) { # While more than 0 elements.
print splice(@lines, rand @lines, 1);
}